﻿Public Class BewegungstabelleCustom
    Inherits Bewegungstabelle
    Public Sub New(ByRef Reader As IO.StreamReader)
        While Not Reader.EndOfStream
            Dim Zeile As String = Reader.ReadLine.Trim
            If Zeile.StartsWith("'") Then Continue While
            If Zeile.ToLower.StartsWith("tabellenende") Then Exit While
            Dim Daten As String() = Zeile.Split(":")
            Select Case Daten(0).ToUpper
                Case "STADT"
                    STADT = Daten(1)
                Case "BASIS"
                    BASIS = Daten(1)
                Case "HQ"
                    HQ = Daten(1)
                Case "WERFT"
                    WERFT = Daten(1)
                Case "LABOR"
                    LABOR = Daten(1)
                Case "FLUGHAFEN"
                    FLUGHAFEN = Daten(1)
                Case "TURM"
                    TURM = Daten(1)
                Case "STRAßE"
                    STRAßE = Daten(1)
                Case "EBENE"
                    EBENE = Daten(1)
                Case "WALD"
                    WALD = Daten(1)
                Case "STRAND"
                    STRAND = Daten(1)
                Case "EBENE+SCHROTT"
                    EBENESCHROTT = Daten(1)
                Case "BRÜCKE"
                    BRÜCKE = Daten(1)
                Case "BERG"
                    BERG = Daten(1)
                Case "FLUSS"
                    FLUSS = Daten(1)
                Case "SEE"
                    SEE = Daten(1)
                Case "RIFF"
                    RIFF = Daten(1)
                Case "RAKETENSILO+RAKETE"
                    RAKETENSILORAKETE = Daten(1)
                Case "RAKETENSILO"
                    RAKETENSILO = Daten(1)
                Case "PIPESTATION"
                    PIPESTATION = Daten(1)
                Case "AUSGETROCKNETESFLUSSBETT"
                    AUSGETROCKNETESFLUSSBETT = Daten(1)
                Case "FELSEN"
                    FELSEN = Daten(1)
                Case "GIPFEL"
                    GIPFEL = Daten(1)
                Case "KAKTEEN"
                    KAKTEEN = Daten(1)
                Case "KAPUTTEPIPESCHWEIß"
                    KAPUTTEPIPESCHWEIß = Daten(1)
                Case "KAPUTTESCHWEIßNAHT"
                    KAPUTTESCHWEIßNAHT = Daten(1)
                Case "KIEFERN"
                    KIEFERN = Daten(1)
                Case "PFAD"
                    PFAD = Daten(1)
                Case "PIPE"
                    PIPE = Daten(1)
                Case "PIPELINE"
                    PIPELINE = Daten(1)
                Case "PIPESCHWEIß"
                    PIPESCHWEIß = Daten(1)
                Case "PLINE"
                    PLINE = Daten(1)
                Case "PLINEKAPUTT"
                    PLINEKAPUTT = Daten(1)
                Case "PLINESCHWEIß"
                    PLINESCHWEIß = Daten(1)
                Case "SCHNEE"
                    SCHNEE = Daten(1)
                Case "SCHWEIßNAHT"
                    SCHWEIßNAHT = Daten(1)
                Case "STRAßENFROST"
                    STRAßENFROST = Daten(1)
                Case "WÜSTE"
                    WÜSTE = Daten(1)
                Case "MAUER"
                    MAUER = Daten(1)
                Case "ZUGBRÜCKE"
                    ZUGBRÜCKE = Daten(1)
                Case "MINE"
                    MINE = Daten(1)
                Case "WÜSTE+SCHROTT"
                    WÜSTENSCHROTT = Daten(1)
                Case "SCHNEE+SCHROTT"
                    SCHNEESCHROTT = Daten(1)
                Case "SUMPF"
                    SUMPF = Daten(1)
                Case "LUFT"
                    LUFT = Daten(1)
                Case "WOLKEN"
                    WOLKEN = Daten(1)
                Case "BAUBRÜCKE"
                    BAUBRÜCKE = Daten(1)
                Case "RADAR"
                    RADAR = Daten(1)
                Case "TEMPWERFT"
                    TEMPWERFT = Daten(1)
                Case "TEMPFLUGHAFEN"
                    TEMPFLUGHAFEN = Daten(1)
                Case "NEBEL"
                    NEBEL = Daten(1)
                Case "RAUESEE"
                    RAUESEE = Daten(1)
                Case "ÖDLAND"
                    ÖDLAND = Daten(1)
                Case "RUINEN"
                    RUINEN = Daten(1)
            End Select
        End While
    End Sub
End Class
